object DM: TDM
  OldCreateOrder = False
  Left = 536
  Top = 208
  Height = 459
  Width = 579
  object tBanco: TIBTransaction
    Active = True
    DefaultDatabase = dBanco
    DefaultAction = TACommitRetaining
    AutoStopAction = saNone
    Left = 80
    Top = 8
  end
  object dstCidade: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from cidade where cod_cid = :cod_cid')
    InsertSQL.Strings = (
      
        'insert into cidade (cod_cid, nome, uf) values (:cod_cid, :nome, ' +
        ':uf)')
    RefreshSQL.Strings = (
      'select * from cidade order by cod_cid')
    SelectSQL.Strings = (
      'select * from cidade order by cod_cid')
    ModifySQL.Strings = (
      'update cidade set nome = :nome, uf = :uf'
      'where cod_cid = :cod_cid')
    GeneratorField.Field = 'COD_CID'
    GeneratorField.Generator = 'GEN_CIDADE'
    Left = 32
    Top = 80
    object dstCidadeCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'CIDADE.COD_CID'
      Required = True
    end
    object dstCidadeNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'CIDADE.NOME'
      Required = True
      Size = 100
    end
    object dstCidadeUF: TIBStringField
      FieldName = 'UF'
      Origin = 'CIDADE.UF'
      Required = True
      FixedChar = True
      Size = 2
    end
  end
  object dstCondPgto: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from condicao_pgto where cod_condicao = :cod_condicao')
    InsertSQL.Strings = (
      
        'insert into condicao_pgto (cod_condicao, numero_parcelas, descri' +
        'cao, intervalo)'
      
        ' values (:cod_condicao, :numero_parcelas, :descricao, :intervalo' +
        ')')
    SelectSQL.Strings = (
      'select * from condicao_pgto order by cod_condicao')
    ModifySQL.Strings = (
      'update condicao_pgto set numero_parcelas = :numero_parcelas,'
      '     descricao = :descricao, intervalo = :intervalo'
      'where cod_condicao = :cod_condicao')
    GeneratorField.Field = 'COD_CONDICAO'
    GeneratorField.Generator = 'GEN_CONDICAO_PGTO'
    Left = 32
    Top = 136
    object dstCondPgtoCOD_CONDICAO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 8
      FieldName = 'COD_CONDICAO'
      Origin = 'CONDICAO_PGTO.COD_CONDICAO'
      Required = True
    end
    object dstCondPgtoNUMERO_PARCELAS: TIntegerField
      DisplayLabel = 'N'#186' Parcelas'
      DisplayWidth = 11
      FieldName = 'NUMERO_PARCELAS'
      Origin = 'CONDICAO_PGTO.NUMERO_PARCELAS'
      Required = True
    end
    object dstCondPgtoDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      DisplayWidth = 95
      FieldName = 'DESCRICAO'
      Origin = 'CONDICAO_PGTO.DESCRICAO'
      Required = True
      Size = 100
    end
    object dstCondPgtoINTERVALO: TIntegerField
      FieldName = 'INTERVALO'
      Origin = 'CONDICAO_PGTO.INTERVALO'
      Required = True
    end
  end
  object dstGrupoProd: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'DELETE FROM GRUPO_PRODUTO WHERE COD_GRUPO = :COD_GRUPO')
    InsertSQL.Strings = (
      'INSERT INTO GRUPO_PRODUTO (COD_GRUPO, NOME, DESCRICAO)'
      'VALUES (:COD_GRUPO, :NOME, :DESCRICAO)')
    SelectSQL.Strings = (
      'select * from grupo_produto order by cod_grupo')
    ModifySQL.Strings = (
      'UPDATE GRUPO_PRODUTO SET NOME = :NOME, DESCRICAO = :DESCRICAO'
      'WHERE COD_GRUPO = :COD_GRUPO')
    GeneratorField.Field = 'COD_GRUPO'
    GeneratorField.Generator = 'GEN_GRUPO_PRODUTO'
    Left = 32
    Top = 192
    object dstGrupoProdCOD_GRUPO: TIntegerField
      FieldName = 'COD_GRUPO'
      Origin = 'GRUPO_PRODUTO.COD_GRUPO'
      Required = True
    end
    object dstGrupoProdNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'GRUPO_PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object dstGrupoProdDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'GRUPO_PRODUTO.DESCRICAO'
      Required = True
      Size = 100
    end
  end
  object dstFuncionario: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from funcionario where cod_func = :cod_func')
    InsertSQL.Strings = (
      'insert into funcionario'
      '(cod_func, cod_cid, nome, endereco, cep, dt_nascimento,'
      
        'rg, cpf, telefone, celular, email, funcao, dt_admissao, dt_demis' +
        'sao) values'
      
        '(:cod_func, :cod_cid, :nome, :endereco, :cep, :dt_nascimento, :r' +
        'g, :cpf,'
      
        ':telefone, :celular, :email, :funcao, :dt_admissao, :dt_demissao' +
        ')')
    SelectSQL.Strings = (
      'select f.* from funcionario f'
      'where f.cod_func <> 0'
      'order by cod_func')
    ModifySQL.Strings = (
      'update funcionario set cod_cid = :cod_cid,'
      
        'nome = :nome, endereco = :endereco, cep = :cep, dt_nascimento = ' +
        ':dt_nascimento,'
      
        'rg = :rg, cpf = :cpf, telefone = :telefone, celular = :celular, ' +
        'email = :email,'
      
        'funcao = :funcao, dt_admissao = :dt_admissao, dt_demissao = :dt_' +
        'demissao'
      'where cod_func = :cod_func')
    GeneratorField.Field = 'COD_FUNC'
    GeneratorField.Generator = 'GEN_FUNCIONARIO'
    Left = 32
    Top = 248
    object dstFuncionarioCOD_FUNC: TIntegerField
      FieldName = 'COD_FUNC'
      Origin = 'FUNCIONARIO.COD_FUNC'
      Required = True
    end
    object dstFuncionarioCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'FUNCIONARIO.COD_CID'
      Required = True
    end
    object dstFuncionarioNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'FUNCIONARIO.NOME'
      Required = True
      Size = 100
    end
    object dstFuncionarioENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'FUNCIONARIO.ENDERECO'
      Required = True
      Size = 100
    end
    object dstFuncionarioCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'FUNCIONARIO.CEP'
      Required = True
      EditMask = '99999-999;0; '
    end
    object dstFuncionarioDT_NASCIMENTO: TDateField
      FieldName = 'DT_NASCIMENTO'
      Origin = 'FUNCIONARIO.DT_NASCIMENTO'
      Required = True
    end
    object dstFuncionarioRG: TIBStringField
      FieldName = 'RG'
      Origin = 'FUNCIONARIO.RG'
      Required = True
      Size = 8
    end
    object dstFuncionarioCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'FUNCIONARIO.CPF'
      Required = True
      EditMask = '999.999.999-99;0; '
    end
    object dstFuncionarioTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'FUNCIONARIO.TELEFONE'
      Required = True
      EditMask = '(99)9999-9999;0; '
    end
    object dstFuncionarioCELULAR: TIBStringField
      FieldName = 'CELULAR'
      Origin = 'FUNCIONARIO.CELULAR'
      EditMask = '(99)9999-9999;0; '
    end
    object dstFuncionarioEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'FUNCIONARIO.EMAIL'
      Size = 100
    end
    object dstFuncionarioFUNCAO: TIBStringField
      FieldName = 'FUNCAO'
      Origin = 'FUNCIONARIO.FUNCAO'
      Required = True
      Size = 50
    end
    object dstFuncionarioDT_ADMISSAO: TDateField
      FieldName = 'DT_ADMISSAO'
      Origin = 'FUNCIONARIO.DT_ADMISSAO'
      Required = True
    end
    object dstFuncionarioDT_DEMISSAO: TDateField
      FieldName = 'DT_DEMISSAO'
      Origin = 'FUNCIONARIO.DT_DEMISSAO'
    end
  end
  object dstCliente: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from cliente where cod_cli = :cod_cli')
    InsertSQL.Strings = (
      'insert into cliente'
      
        '(cod_cli, cod_cid, nome, endereco, cep, rg, cpf, telefone, celul' +
        'ar, email) values'
      
        '(:cod_cli, :cod_cid, :nome, :endereco, :cep, :rg, :cpf, :telefon' +
        'e, :celular, :email)')
    SelectSQL.Strings = (
      'select c.* from cliente c'
      'order by c.cod_cli')
    ModifySQL.Strings = (
      'update cliente set cod_cid = :cod_cid, nome = :nome,'
      
        'endereco = :endereco, cep = :cep, rg = :rg, cpf = :cpf, telefone' +
        ' = :telefone,'
      'celular = :celular, email = :email'
      'where cod_cli = :cod_cli')
    GeneratorField.Field = 'COD_CLI'
    GeneratorField.Generator = 'GEN_CLIENTE'
    Left = 32
    Top = 304
    object dstClienteCOD_CLI: TIntegerField
      FieldName = 'COD_CLI'
      Origin = 'CLIENTE.COD_CLI'
      Required = True
    end
    object dstClienteCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'CLIENTE.COD_CID'
      Required = True
    end
    object dstClienteNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'CLIENTE.NOME'
      Required = True
      Size = 100
    end
    object dstClienteENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'CLIENTE.ENDERECO'
      Required = True
      Size = 100
    end
    object dstClienteCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'CLIENTE.CEP'
      Required = True
      EditMask = '99999-999;0; '
    end
    object dstClienteCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'CLIENTE.CPF'
      Required = True
      EditMask = '999.999.999-99;0; '
    end
    object dstClienteRG: TIBStringField
      FieldName = 'RG'
      Origin = 'CLIENTE.RG'
      Required = True
    end
    object dstClienteCELULAR: TIBStringField
      FieldName = 'CELULAR'
      Origin = 'CLIENTE.CELULAR'
      EditMask = '(99)9999-9999;0; '
    end
    object dstClienteTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'CLIENTE.TELEFONE'
      Required = True
      EditMask = '(99)9999-9999;0; '
    end
    object dstClienteEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'CLIENTE.EMAIL'
      Size = 100
    end
  end
  object dstFornecedores: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from fornecedor where cod_fornec = :cod_fornec')
    InsertSQL.Strings = (
      
        'insert into fornecedor (cod_fornec, cod_cid, nome_razao, cpf_cnp' +
        'j, rg_inscrest,'
      'endereco, telefone, email, cep)'
      
        'values (:cod_fornec, :cod_cid, :nome_razao, :cpf_cnpj, :rg_inscr' +
        'est, :endereco,'
      ':telefone, :email, :cep)')
    SelectSQL.Strings = (
      'select * from fornecedor order by cod_fornec')
    ModifySQL.Strings = (
      
        'update fornecedor set cod_cid = :cod_cid, nome_razao = :nome_raz' +
        'ao,'
      
        'cpf_cnpj = :cpf_cnpj, rg_inscrest = :rg_inscrest, endereco = :en' +
        'dereco,'
      'telefone = :telefone, email = :email, cep = :cep'
      'where cod_fornec = :cod_fornec')
    GeneratorField.Field = 'COD_FORNEC'
    GeneratorField.Generator = 'GEN_FORNECEDOR'
    Left = 128
    Top = 80
    object dstFornecedoresCOD_FORNEC: TIntegerField
      FieldName = 'COD_FORNEC'
      Origin = 'FORNECEDOR.COD_FORNEC'
      Required = True
    end
    object dstFornecedoresCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'FORNECEDOR.COD_CID'
      Required = True
    end
    object dstFornecedoresNOME_RAZAO: TIBStringField
      FieldName = 'NOME_RAZAO'
      Origin = 'FORNECEDOR.NOME_RAZAO'
      Required = True
      Size = 100
    end
    object dstFornecedoresCPF_CNPJ: TIBStringField
      FieldName = 'CPF_CNPJ'
      Origin = 'FORNECEDOR.CPF_CNPJ'
      Required = True
      EditMask = '99.999.999/9999-99;0; '
    end
    object dstFornecedoresRG_INSCREST: TIBStringField
      FieldName = 'RG_INSCREST'
      Origin = 'FORNECEDOR.RG_INSCREST'
      Required = True
    end
    object dstFornecedoresENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'FORNECEDOR.ENDERECO'
      Required = True
      Size = 100
    end
    object dstFornecedoresTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'FORNECEDOR.TELEFONE'
      Required = True
      EditMask = '(99)9999-9999;0; '
      Size = 15
    end
    object dstFornecedoresEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'FORNECEDOR.EMAIL'
      Size = 100
    end
    object dstFornecedoresCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'FORNECEDOR.CEP'
      Required = True
      EditMask = '99999-999;0; '
    end
  end
  object dstProduto: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from produto where cod_prod = :cod_prod')
    InsertSQL.Strings = (
      
        'insert into produto (cod_prod, cod_grupo, nome, descricao, compo' +
        'sicao,'
      
        'cod_barras, med_controlado, cor_tarja, listagem, registro_ms, nc' +
        'm, dt_cadastro,'
      'preco_custo, preco_venda, desconto_max, marca)'
      
        'values (:cod_prod, :cod_grupo, :nome, :descricao, :composicao, :' +
        'cod_barras,'
      
        ':med_controlado, :cor_tarja, :listagem, :registro_ms, :ncm, :dt_' +
        'cadastro,'
      ':preco_custo, :preco_venda, :desconto_max, :marca)')
    SelectSQL.Strings = (
      'select * from produto order by cod_prod')
    ModifySQL.Strings = (
      
        'update produto set cod_grupo = :cod_grupo, nome = :nome, descric' +
        'ao = :descricao,'
      'composicao = :composicao, cod_barras = :cod_barras,'
      
        'med_controlado = :med_controlado, cor_tarja = :cor_tarja, listag' +
        'em = :listagem,'
      
        'registro_ms = :registro_ms, ncm = :ncm, dt_cadastro = :dt_cadast' +
        'ro,'
      'preco_custo = :preco_custo, preco_venda = :preco_venda,'
      'desconto_max = :desconto_max, marca = :marca'
      'where cod_prod = :cod_prod')
    GeneratorField.Field = 'COD_PROD'
    GeneratorField.Generator = 'GEN_PRODUTO'
    Left = 128
    Top = 136
    object dstProdutoCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'PRODUTO.COD_PROD'
      Required = True
    end
    object dstProdutoCOD_GRUPO: TIntegerField
      FieldName = 'COD_GRUPO'
      Origin = 'PRODUTO.COD_GRUPO'
      Required = True
    end
    object dstProdutoNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object dstProdutoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'PRODUTO.DESCRICAO'
      Required = True
      Size = 100
    end
    object dstProdutoCOMPOSICAO: TIBStringField
      FieldName = 'COMPOSICAO'
      Origin = 'PRODUTO.COMPOSICAO'
      Size = 100
    end
    object dstProdutoCOD_BARRAS: TIBStringField
      FieldName = 'COD_BARRAS'
      Origin = 'PRODUTO.COD_BARRAS'
      Required = True
    end
    object dstProdutoMED_CONTROLADO: TIBStringField
      FieldName = 'MED_CONTROLADO'
      Origin = 'PRODUTO.MED_CONTROLADO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object dstProdutoCOR_TARJA: TIBStringField
      FieldName = 'COR_TARJA'
      Origin = 'PRODUTO.COR_TARJA'
    end
    object dstProdutoLISTAGEM: TIBStringField
      FieldName = 'LISTAGEM'
      Origin = 'PRODUTO.LISTAGEM'
      FixedChar = True
      Size = 2
    end
    object dstProdutoREGISTRO_MS: TIBStringField
      FieldName = 'REGISTRO_MS'
      Origin = 'PRODUTO.REGISTRO_MS'
    end
    object dstProdutoMARCA: TIBStringField
      FieldName = 'MARCA'
      Origin = 'PRODUTO.MARCA'
      Required = True
      Size = 50
    end
    object dstProdutoNCM: TIBStringField
      FieldName = 'NCM'
      Origin = 'PRODUTO.NCM'
      Size = 50
    end
    object dstProdutoDT_CADASTRO: TDateField
      FieldName = 'DT_CADASTRO'
      Origin = 'PRODUTO.DT_CADASTRO'
      Required = True
    end
    object dstProdutoPRECO_CUSTO: TFloatField
      DefaultExpression = '0'
      FieldName = 'PRECO_CUSTO'
      Origin = 'PRODUTO.PRECO_CUSTO'
      Required = True
      currency = True
    end
    object dstProdutoPRECO_VENDA: TFloatField
      FieldName = 'PRECO_VENDA'
      Origin = 'PRODUTO.PRECO_VENDA'
      Required = True
      currency = True
    end
    object dstProdutoDESCONTO_MAX: TFloatField
      FieldName = 'DESCONTO_MAX'
      Origin = 'PRODUTO.DESCONTO_MAX'
      Required = True
      currency = True
    end
  end
  object qryTemp: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    Left = 144
    Top = 8
  end
  object dstAjusteEstoque: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      
        'insert into ajuste_estoque (cod_ajuste, cod_lote, qtde_ajustado,' +
        ' motivo, observacao)'
      
        'values (:cod_ajuste, :cod_lote, :qtde_ajustado, :motivo, :observ' +
        'acao)')
    SelectSQL.Strings = (
      'select * from ajuste_estoque order by cod_ajuste')
    ModifySQL.Strings = (
      
        'update ajuste_estoque set cod_lote = :cod_lote, qtde_ajustado = ' +
        ':qtde_ajustado,'
      ' motivo = :motivo, observacao = :observacao'
      'where cod_ajuste = :cod_ajuste')
    GeneratorField.Field = 'COD_AJUSTE'
    GeneratorField.Generator = 'GEN_AJUSTE_ESTOQUE'
    Left = 128
    Top = 192
    object dstAjusteEstoqueCOD_AJUSTE: TIntegerField
      FieldName = 'COD_AJUSTE'
      Origin = 'AJUSTE_ESTOQUE.COD_AJUSTE'
      Required = True
    end
    object dstAjusteEstoqueCOD_LOTE: TIntegerField
      FieldName = 'COD_LOTE'
      Origin = 'AJUSTE_ESTOQUE.COD_LOTE'
      Required = True
    end
    object dstAjusteEstoqueQTDE_AJUSTADO: TIntegerField
      FieldName = 'QTDE_AJUSTADO'
      Origin = 'AJUSTE_ESTOQUE.QTDE_AJUSTADO'
      Required = True
    end
    object dstAjusteEstoqueMOTIVO: TIBStringField
      FieldName = 'MOTIVO'
      Origin = 'AJUSTE_ESTOQUE.MOTIVO'
      Required = True
      Size = 100
    end
    object dstAjusteEstoqueOBSERVACAO: TIBStringField
      FieldName = 'OBSERVACAO'
      Origin = 'AJUSTE_ESTOQUE.OBSERVACAO'
      Size = 100
    end
  end
  object dstCompra: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from compra where cod_compra = :cod_compra')
    InsertSQL.Strings = (
      
        'insert into compra (cod_compra, cod_condicao, cod_fornec, dt_com' +
        'pra,'
      
        'vl_compra, situacao) values (:cod_compra, :cod_condicao, :cod_fo' +
        'rnec,'
      ':dt_compra, :vl_compra, :situacao)')
    SelectSQL.Strings = (
      'select * from compra where cod_compra = :cod_compra')
    ModifySQL.Strings = (
      
        'update compra set cod_condicao = :cod_condicao, cod_fornec = :co' +
        'd_fornec,'
      
        'dt_compra = :dt_compra, vl_compra = :vl_compra, situacao = :situ' +
        'acao'
      'where cod_compra = :cod_compra')
    GeneratorField.Field = 'COD_COMPRA'
    GeneratorField.Generator = 'GEN_COMPRA'
    Left = 128
    Top = 248
    object dstCompraCOD_COMPRA: TIntegerField
      FieldName = 'COD_COMPRA'
      Required = True
    end
    object dstCompraCOD_CONDICAO: TIntegerField
      FieldName = 'COD_CONDICAO'
      Origin = 'COMPRA.COD_CONDICAO'
      Required = True
    end
    object dstCompraCOD_FORNEC: TIntegerField
      FieldName = 'COD_FORNEC'
      Origin = 'COMPRA.COD_FORNEC'
      Required = True
    end
    object dstCompraDT_COMPRA: TDateField
      FieldName = 'DT_COMPRA'
      Origin = 'COMPRA.DT_COMPRA'
      Required = True
    end
    object dstCompraVL_COMPRA: TFloatField
      FieldName = 'VL_COMPRA'
      Origin = 'COMPRA.VL_COMPRA'
      Required = True
      currency = True
    end
    object dstCompraSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'COMPRA.SITUACAO'
      Required = True
    end
  end
  object dstItemCompra: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BeforeOpen = dstItemCompraBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from item_compra ic'
      '    where ic.cod_compra = :cod_compra'
      '    and ic.cod_prod = :cod_prod')
    InsertSQL.Strings = (
      
        'insert into item_compra (cod_compra, cod_prod, qtde_compra, vl_p' +
        'roduto,'
      'vl_desconto) values'
      
        '(:cod_compra, :cod_prod, :qtde_compra, :vl_produto, :vl_desconto' +
        ')')
    RefreshSQL.Strings = (
      'select ic.*, p.nome as produto,'
      
        '    (ic.qtde_compra * ic.vl_produto - ic.vl_desconto) as subtota' +
        'l'
      '    from item_compra ic'
      '    join produto p on (ic.cod_prod = p.cod_prod)'
      'where ic.cod_compra = :cod_compra')
    SelectSQL.Strings = (
      'select ic.*, p.nome as produto,'
      
        '    (ic.qtde_compra * ic.vl_produto - ic.vl_desconto) as subtota' +
        'l'
      '    from item_compra ic'
      '    join produto p on (ic.cod_prod = p.cod_prod)'
      'where ic.cod_compra = :cod_compra')
    ModifySQL.Strings = (
      
        'update item_compra set qtde_compra = :qtde_compra, vl_produto = ' +
        ':vl_produto,'
      'vl_desconto = :vl_desconto'
      'where cod_compra = :cod_compra and cod_prod = :cod_prod')
    Left = 128
    Top = 304
    object dstItemCompraCOD_COMPRA: TIntegerField
      FieldName = 'COD_COMPRA'
      Origin = 'ITEM_COMPRA.COD_COMPRA'
      Required = True
    end
    object dstItemCompraCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'ITEM_COMPRA.COD_PROD'
      Required = True
    end
    object dstItemCompraQTDE_COMPRA: TIntegerField
      FieldName = 'QTDE_COMPRA'
      Origin = 'ITEM_COMPRA.QTDE_COMPRA'
      Required = True
    end
    object dstItemCompraVL_PRODUTO: TFloatField
      FieldName = 'VL_PRODUTO'
      Origin = 'ITEM_COMPRA.VL_PRODUTO'
      Required = True
      currency = True
    end
    object dstItemCompraVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'ITEM_COMPRA.VL_DESCONTO'
      currency = True
    end
    object dstItemCompraPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 50
    end
    object dstItemCompraSUBTOTAL: TFloatField
      FieldName = 'SUBTOTAL'
      currency = True
    end
  end
  object dstLote: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from lote_produto where cod_lote = :cod_lote')
    InsertSQL.Strings = (
      
        'insert into lote_produto (cod_lote, nr_lote, cod_prod, qtde_esto' +
        'que, dt_vencimento,'
      
        'dt_fabricacao) values (:cod_lote, :nr_lote, :cod_prod, :qtde_est' +
        'oque, :dt_vencimento,'
      ':dt_fabricacao)')
    SelectSQL.Strings = (
      'select l.*, p.med_controlado, p.nome as produto'
      '    from lote_produto l'
      '    join produto p on (p.cod_prod = l.cod_prod)'
      'order by p.nome, l.dt_vencimento')
    ModifySQL.Strings = (
      
        'update lote_produto set nr_lote = :nr_lote, cod_prod = :cod_prod' +
        ','
      ' qtde_estoque = :qtde_estoque, dt_vencimento = :dt_vencimento,'
      ' dt_fabricacao = :dt_fabricacao'
      'where cod_lote = :cod_lote')
    GeneratorField.Field = 'COD_LOTE'
    GeneratorField.Generator = 'GEN_LOTE_PRODUTO'
    Left = 32
    Top = 360
    object dstLoteCOD_LOTE: TIntegerField
      FieldName = 'COD_LOTE'
      Origin = 'LOTE_PRODUTO.COD_LOTE'
      Required = True
    end
    object dstLoteCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'LOTE_PRODUTO.COD_PROD'
      Required = True
    end
    object dstLotePRODUTO: TIBStringField
      FieldName = 'PRODUTO'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object dstLoteNR_LOTE: TIBStringField
      FieldName = 'NR_LOTE'
      Origin = 'LOTE_PRODUTO.NR_LOTE'
      Required = True
      Size = 50
    end
    object dstLoteQTDE_ESTOQUE: TIntegerField
      FieldName = 'QTDE_ESTOQUE'
      Origin = 'LOTE_PRODUTO.QTDE_ESTOQUE'
    end
    object dstLoteDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'LOTE_PRODUTO.DT_VENCIMENTO'
    end
    object dstLoteDT_FABRICACAO: TDateField
      FieldName = 'DT_FABRICACAO'
      Origin = 'LOTE_PRODUTO.DT_FABRICACAO'
    end
    object dstLoteMED_CONTROLADO: TIBStringField
      FieldName = 'MED_CONTROLADO'
      Origin = 'PRODUTO.MED_CONTROLADO'
      Required = True
      FixedChar = True
      Size = 1
    end
  end
  object dBanco: TIBDatabase
    Connected = True
    DatabaseName = 'D:\UNIPAR\2011\TCC\fernandosydor-tcc-2011\Banco\FARMACIA.FDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 32
    Top = 8
  end
  object dstParcelaCP: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      
        'insert into parcela_cp (cod_parcela_cp, cod_compra, nr_documento' +
        ', dt_vencimento,'
      
        '    dt_pagamento, vl_juros, vl_desconto, vl_parcela, vl_pagament' +
        'o, formapgto,'
      
        '    situacao) values (:cod_parcela_cp, :cod_compra, :nr_document' +
        'o, :dt_vencimento,'
      
        '    :dt_pagamento, :vl_juros, :vl_desconto, :vl_parcela, :vl_pag' +
        'amento,'
      '    :formapgto, :situacao)')
    SelectSQL.Strings = (
      'select p.* from parcela_cp p'
      '   where p.cod_compra = :cod_compra'
      'order by cod_parcela_cp')
    ModifySQL.Strings = (
      
        'update parcela_cp set cod_compra = :cod_compra, nr_documento = :' +
        'nr_documento,'
      
        '  dt_vencimento = :dt_vencimento, dt_pagamento = :dt_pagamento, ' +
        'vl_juros ='
      
        '  :vl_juros, vl_desconto = :vl_desconto, vl_parcela = :vl_parcel' +
        'a,'
      
        '  vl_pagamento = :vl_pagamento, formapgto = :formapgto, situacao' +
        ' = :situacao'
      'where cod_parcela_cp = :cod_parcela_cp')
    GeneratorField.Field = 'COD_PARCELA_CP'
    GeneratorField.Generator = 'GEN_PARCELA_CP'
    Left = 128
    Top = 360
    object dstParcelaCPCOD_PARCELA_CP: TIntegerField
      FieldName = 'COD_PARCELA_CP'
      Origin = 'PARCELA_CP.COD_PARCELA_CP'
      Required = True
    end
    object dstParcelaCPCOD_COMPRA: TIntegerField
      FieldName = 'COD_COMPRA'
      Origin = 'PARCELA_CP.COD_COMPRA'
      Required = True
    end
    object dstParcelaCPNR_DOCUMENTO: TIntegerField
      FieldName = 'NR_DOCUMENTO'
      Origin = 'PARCELA_CP.NR_DOCUMENTO'
      Required = True
    end
    object dstParcelaCPDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'PARCELA_CP.DT_VENCIMENTO'
      Required = True
    end
    object dstParcelaCPDT_PAGAMENTO: TDateField
      FieldName = 'DT_PAGAMENTO'
      Origin = 'PARCELA_CP.DT_PAGAMENTO'
    end
    object dstParcelaCPVL_JUROS: TFloatField
      FieldName = 'VL_JUROS'
      Origin = 'PARCELA_CP.VL_JUROS'
      currency = True
    end
    object dstParcelaCPVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'PARCELA_CP.VL_DESCONTO'
      currency = True
    end
    object dstParcelaCPVL_PARCELA: TFloatField
      FieldName = 'VL_PARCELA'
      Origin = 'PARCELA_CP.VL_PARCELA'
      Required = True
      currency = True
    end
    object dstParcelaCPVL_PAGAMENTO: TFloatField
      FieldName = 'VL_PAGAMENTO'
      Origin = 'PARCELA_CP.VL_PAGAMENTO'
      currency = True
    end
    object dstParcelaCPFORMAPGTO: TIBStringField
      FieldName = 'FORMAPGTO'
      Origin = 'PARCELA_CP.FORMAPGTO'
      Size = 50
    end
    object dstParcelaCPSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'PARCELA_CP.SITUACAO'
      Required = True
    end
  end
  object dstVenda: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from venda where cod_venda = :cod_venda')
    InsertSQL.Strings = (
      'insert into venda (cod_venda, cod_condicao, cod_func, dt_venda,'
      '    vl_venda, cod_cli, num_receita, crm_medico, situacao)'
      '    values (:cod_venda, :cod_condicao, :cod_func, :dt_venda,'
      '    :vl_venda, :cod_cli, :num_receita, :crm_medico, :situacao)')
    SelectSQL.Strings = (
      'select * from venda where cod_venda = :cod_venda')
    ModifySQL.Strings = (
      'update venda set cod_condicao = :cod_condicao,'
      
        '    cod_func = :cod_func, dt_venda = :dt_venda, vl_venda = :vl_v' +
        'enda,'
      
        '    cod_cli = :cod_cli, num_receita = :num_receita, crm_medico =' +
        ' '
      '    :crm_medico, situacao = :situacao'
      'where cod_venda = :cod_venda')
    GeneratorField.Field = 'COD_VENDA'
    GeneratorField.Generator = 'GEN_VENDA'
    Left = 216
    Top = 248
    object dstVendaCOD_VENDA: TIntegerField
      FieldName = 'COD_VENDA'
      Origin = 'VENDA.COD_VENDA'
      Required = True
    end
    object dstVendaCOD_CONDICAO: TIntegerField
      FieldName = 'COD_CONDICAO'
      Origin = 'VENDA.COD_CONDICAO'
      Required = True
    end
    object dstVendaCOD_FUNC: TIntegerField
      FieldName = 'COD_FUNC'
      Origin = 'VENDA.COD_FUNC'
      Required = True
    end
    object dstVendaDT_VENDA: TDateField
      FieldName = 'DT_VENDA'
      Origin = 'VENDA.DT_VENDA'
      Required = True
    end
    object dstVendaVL_VENDA: TFloatField
      FieldName = 'VL_VENDA'
      Origin = 'VENDA.VL_VENDA'
      Required = True
      currency = True
    end
    object dstVendaCOD_CLI: TIntegerField
      FieldName = 'COD_CLI'
      Origin = 'VENDA.COD_CLI'
    end
    object dstVendaSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'VENDA.SITUACAO'
      Required = True
    end
    object dstVendaCRM_MEDICO: TIntegerField
      FieldName = 'CRM_MEDICO'
      Origin = 'VENDA.CRM_MEDICO'
    end
    object dstVendaNUM_RECEITA: TIntegerField
      FieldName = 'NUM_RECEITA'
      Origin = 'VENDA.NUM_RECEITA'
    end
  end
  object dstItemVenda: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BeforeOpen = dstItemVendaBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from item_venda iv'
      '    where iv.cod_venda = :cod_venda'
      '    and iv.cod_prod = :cod_prod')
    InsertSQL.Strings = (
      
        'insert into item_venda (cod_venda, cod_prod, qtde_vendido, vl_pr' +
        'oduto,'
      'vl_desconto) values'
      
        '(:cod_venda, :cod_prod, :qtde_vendido, :vl_produto, :vl_desconto' +
        ')')
    SelectSQL.Strings = (
      'select iv.*, p.nome as produto,'
      
        '    (iv.qtde_vendido * iv.vl_produto - iv.vl_desconto) as subtot' +
        'al'
      '    from item_venda iv'
      '    join produto p on (iv.cod_prod = p.cod_prod)'
      '   '
      'where iv.cod_venda = :cod_venda')
    ModifySQL.Strings = (
      'update item_venda set qtde_vendido = :qtde_vendido, vl_produto ='
      '   :vl_produto, vl_desconto = :vl_desconto'
      'where cod_venda = :cod_venda and cod_prod = :cod_prod')
    Left = 216
    Top = 304
    object dstItemVendaCOD_VENDA: TIntegerField
      FieldName = 'COD_VENDA'
      Origin = 'ITEM_VENDA.COD_VENDA'
      Required = True
    end
    object dstItemVendaCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'ITEM_VENDA.COD_PROD'
      Required = True
    end
    object dstItemVendaQTDE_VENDIDO: TIntegerField
      FieldName = 'QTDE_VENDIDO'
      Origin = 'ITEM_VENDA.QTDE_VENDIDO'
      Required = True
    end
    object dstItemVendaVL_PRODUTO: TFloatField
      FieldName = 'VL_PRODUTO'
      Origin = 'ITEM_VENDA.VL_PRODUTO'
      Required = True
      currency = True
    end
    object dstItemVendaVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'ITEM_VENDA.VL_DESCONTO'
      currency = True
    end
    object dstItemVendaPRODUTO: TIBStringField
      FieldName = 'PRODUTO'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object dstItemVendaSUBTOTAL: TFloatField
      FieldName = 'SUBTOTAL'
      currency = True
    end
  end
  object dstParcelaCR: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    InsertSQL.Strings = (
      
        'insert into parcela_cr (cod_parcela_cr, cod_venda, nr_documento,' +
        ' dt_vencimento,'
      
        '    dt_recebimento, vl_juros, vl_desconto, vl_parcela, vl_recebi' +
        'mento, formapgto,'
      
        '    situacao) values (:cod_parcela_cr, :cod_venda, :nr_documento' +
        ', :dt_vencimento,'
      
        '    :dt_recebimento, :vl_juros, :vl_desconto, :vl_parcela, :vl_r' +
        'ecebimento,'
      '    :formapgto, :situacao)')
    SelectSQL.Strings = (
      'select p.* from parcela_cr p'
      '   where p.cod_venda = :cod_venda'
      'order by cod_parcela_cr')
    ModifySQL.Strings = (
      'update parcela_cr set cod_venda = :cod_venda, nr_documento ='
      
        '  :nr_documento, dt_vencimento = :dt_vencimento, dt_recebimento ' +
        '='
      
        '  :dt_recebimento, vl_juros = :vl_juros, vl_desconto = :vl_desco' +
        'nto,'
      
        '  vl_parcela = :vl_parcela, vl_recebimento = :vl_recebimento, fo' +
        'rmapgto ='
      '  :formapgto, situacao = :situacao'
      'where cod_parcela_cr = :cod_parcela_cr')
    GeneratorField.Field = 'COD_PARCELA_CR'
    GeneratorField.Generator = 'GEN_PARCELA_CR'
    Left = 216
    Top = 360
    object dstParcelaCRCOD_PARCELA_CR: TIntegerField
      FieldName = 'COD_PARCELA_CR'
      Origin = 'PARCELA_CR.COD_PARCELA_CR'
      Required = True
    end
    object dstParcelaCRCOD_VENDA: TIntegerField
      FieldName = 'COD_VENDA'
      Origin = 'PARCELA_CR.COD_VENDA'
      Required = True
    end
    object dstParcelaCRNR_DOCUMENTO: TIntegerField
      FieldName = 'NR_DOCUMENTO'
      Origin = 'PARCELA_CR.NR_DOCUMENTO'
      Required = True
    end
    object dstParcelaCRDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'PARCELA_CR.DT_VENCIMENTO'
      Required = True
    end
    object dstParcelaCRDT_RECEBIMENTO: TDateField
      FieldName = 'DT_RECEBIMENTO'
      Origin = 'PARCELA_CR.DT_RECEBIMENTO'
    end
    object dstParcelaCRVL_JUROS: TFloatField
      FieldName = 'VL_JUROS'
      Origin = 'PARCELA_CR.VL_JUROS'
      currency = True
    end
    object dstParcelaCRVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'PARCELA_CR.VL_DESCONTO'
      currency = True
    end
    object dstParcelaCRVL_PARCELA: TFloatField
      FieldName = 'VL_PARCELA'
      Origin = 'PARCELA_CR.VL_PARCELA'
      Required = True
      currency = True
    end
    object dstParcelaCRVL_RECEBIMENTO: TFloatField
      FieldName = 'VL_RECEBIMENTO'
      Origin = 'PARCELA_CR.VL_RECEBIMENTO'
      currency = True
    end
    object dstParcelaCRFORMAPGTO: TIBStringField
      FieldName = 'FORMAPGTO'
      Origin = 'PARCELA_CR.FORMAPGTO'
      Size = 50
    end
    object dstParcelaCRSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'PARCELA_CR.SITUACAO'
      Required = True
    end
  end
  object dstRecParcial: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      
        'delete from recebimento_parcial r where r.cod_rec_parcial = :cod' +
        '_rec_parcial')
    InsertSQL.Strings = (
      
        'insert into recebimento_parcial (cod_rec_parcial, cod_parcela_cr' +
        ', dt_recebido,'
      
        ' vl_recebido) values (:cod_rec_parcial, :cod_parcela_cr, :dt_rec' +
        'ebido,'
      ' :vl_recebido)')
    SelectSQL.Strings = (
      'select * from recebimento_parcial'
      'where cod_parcela_cr = :cod_parcela_cr')
    GeneratorField.Field = 'COD_REC_PARCIAL'
    GeneratorField.Generator = 'GEN_RECEBIMENTO_PARCIAL'
    Left = 296
    Top = 360
    object dstRecParcialCOD_REC_PARCIAL: TIntegerField
      FieldName = 'COD_REC_PARCIAL'
      Origin = 'RECEBIMENTO_PARCIAL.COD_REC_PARCIAL'
      Required = True
    end
    object dstRecParcialCOD_PARCELA_CR: TIntegerField
      FieldName = 'COD_PARCELA_CR'
      Origin = 'RECEBIMENTO_PARCIAL.COD_PARCELA_CR'
      Required = True
    end
    object dstRecParcialDT_RECEBIDO: TDateField
      FieldName = 'DT_RECEBIDO'
      Origin = 'RECEBIMENTO_PARCIAL.DT_RECEBIDO'
      Required = True
    end
    object dstRecParcialVL_RECEBIDO: TFloatField
      FieldName = 'VL_RECEBIDO'
      Origin = 'RECEBIMENTO_PARCIAL.VL_RECEBIDO'
      Required = True
      currency = True
    end
  end
  object dstUsuario: TIBDataSet
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from usuario where cod_usuario = :cod_usuario')
    InsertSQL.Strings = (
      
        'insert into usuario (cod_usuario, cod_func, login, senha, nivel,' +
        ' permissao)'
      
        'values (:cod_usuario, :cod_func, :login, :senha, :nivel, :permis' +
        'sao)')
    SelectSQL.Strings = (
      'select u.*, f.nome from usuario u'
      'join funcionario f on (f.cod_func = u.cod_func)')
    ModifySQL.Strings = (
      
        'update usuario set cod_func = :cod_func, login = :login, senha =' +
        ' :senha,'
      '    nivel = :nivel, permissao = :permissao'
      'where cod_usuario = :cod_usuario')
    GeneratorField.Field = 'COD_USUARIO'
    GeneratorField.Generator = 'GEN_USUARIO'
    Left = 216
    Top = 80
    object dstUsuarioCOD_USUARIO: TIntegerField
      FieldName = 'COD_USUARIO'
      Origin = 'USUARIO.COD_USUARIO'
      Required = True
    end
    object dstUsuarioLOGIN: TIBStringField
      FieldName = 'LOGIN'
      Origin = 'USUARIO.LOGIN'
      Required = True
      Size = 30
    end
    object dstUsuarioSENHA: TIBStringField
      FieldName = 'SENHA'
      Origin = 'USUARIO.SENHA'
      Required = True
      Size = 30
    end
    object dstUsuarioNIVEL: TIBStringField
      FieldName = 'NIVEL'
      Origin = 'USUARIO.NIVEL'
      Required = True
      Size = 50
    end
    object dstUsuarioCOD_FUNC: TIntegerField
      FieldName = 'COD_FUNC'
      Origin = 'USUARIO.COD_FUNC'
      Required = True
    end
    object dstUsuarioNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'FUNCIONARIO.NOME'
      Required = True
      Size = 100
    end
    object dstUsuarioPERMISSAO: TIntegerField
      FieldName = 'PERMISSAO'
      Origin = 'USUARIO.PERMISSAO'
    end
  end
  object qryRelProduto: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from produto order by cod_prod')
    Left = 344
    Top = 8
    object qryRelProdutoCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'PRODUTO.COD_PROD'
      Required = True
    end
    object qryRelProdutoCOD_GRUPO: TIntegerField
      FieldName = 'COD_GRUPO'
      Origin = 'PRODUTO.COD_GRUPO'
      Required = True
    end
    object qryRelProdutoNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object qryRelProdutoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'PRODUTO.DESCRICAO'
      Required = True
      Size = 100
    end
    object qryRelProdutoCOMPOSICAO: TIBStringField
      FieldName = 'COMPOSICAO'
      Origin = 'PRODUTO.COMPOSICAO'
      Size = 100
    end
    object qryRelProdutoCOD_BARRAS: TIBStringField
      FieldName = 'COD_BARRAS'
      Origin = 'PRODUTO.COD_BARRAS'
      Required = True
      Size = 100
    end
    object qryRelProdutoMED_CONTROLADO: TIBStringField
      FieldName = 'MED_CONTROLADO'
      Origin = 'PRODUTO.MED_CONTROLADO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryRelProdutoCOR_TARJA: TIBStringField
      FieldName = 'COR_TARJA'
      Origin = 'PRODUTO.COR_TARJA'
    end
    object qryRelProdutoLISTAGEM: TIBStringField
      FieldName = 'LISTAGEM'
      Origin = 'PRODUTO.LISTAGEM'
      FixedChar = True
      Size = 2
    end
    object qryRelProdutoREGISTRO_MS: TIBStringField
      FieldName = 'REGISTRO_MS'
      Origin = 'PRODUTO.REGISTRO_MS'
    end
    object qryRelProdutoNCM: TIBStringField
      FieldName = 'NCM'
      Origin = 'PRODUTO.NCM'
      Size = 50
    end
    object qryRelProdutoDT_CADASTRO: TDateField
      FieldName = 'DT_CADASTRO'
      Origin = 'PRODUTO.DT_CADASTRO'
      Required = True
    end
    object qryRelProdutoPRECO_CUSTO: TFloatField
      FieldName = 'PRECO_CUSTO'
      Origin = 'PRODUTO.PRECO_CUSTO'
      Required = True
      currency = True
    end
    object qryRelProdutoPRECO_VENDA: TFloatField
      FieldName = 'PRECO_VENDA'
      Origin = 'PRODUTO.PRECO_VENDA'
      Required = True
      currency = True
    end
    object qryRelProdutoDESCONTO_MAX: TFloatField
      FieldName = 'DESCONTO_MAX'
      Origin = 'PRODUTO.DESCONTO_MAX'
      Required = True
      currency = True
    end
    object qryRelProdutoMARCA: TIBStringField
      FieldName = 'MARCA'
      Origin = 'PRODUTO.MARCA'
      Required = True
      Size = 50
    end
  end
  object qryRelLote: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select l.*, p.med_controlado, p.nome, g.nome as grupo'
      'from lote_produto l'
      'join produto p on (p.cod_prod = l.cod_prod)'
      'join grupo_produto g on (p.cod_grupo = g.cod_grupo)'
      'order by l.cod_lote')
    Left = 344
    Top = 57
    object qryRelLoteCOD_LOTE: TIntegerField
      FieldName = 'COD_LOTE'
      Origin = 'LOTE_PRODUTO.COD_LOTE'
      Required = True
    end
    object qryRelLoteCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'LOTE_PRODUTO.COD_PROD'
      Required = True
    end
    object qryRelLoteNR_LOTE: TIBStringField
      FieldName = 'NR_LOTE'
      Origin = 'LOTE_PRODUTO.NR_LOTE'
      Required = True
      Size = 50
    end
    object qryRelLoteQTDE_ESTOQUE: TIntegerField
      FieldName = 'QTDE_ESTOQUE'
      Origin = 'LOTE_PRODUTO.QTDE_ESTOQUE'
    end
    object qryRelLoteDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'LOTE_PRODUTO.DT_VENCIMENTO'
    end
    object qryRelLoteDT_FABRICACAO: TDateField
      FieldName = 'DT_FABRICACAO'
      Origin = 'LOTE_PRODUTO.DT_FABRICACAO'
    end
    object qryRelLoteMED_CONTROLADO: TIBStringField
      FieldName = 'MED_CONTROLADO'
      Origin = 'PRODUTO.MED_CONTROLADO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryRelLoteNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object qryRelLoteGRUPO: TIBStringField
      FieldName = 'GRUPO'
      Origin = 'GRUPO_PRODUTO.NOME'
      Required = True
      Size = 100
    end
  end
  object qryRelMaisVend: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select p.*, qtde'
      'from produto p'
      
        '    left join (select first 4 iv.cod_prod, p.nome as produto, su' +
        'm(iv.qtde_vendido) as qtde'
      '    from item_venda iv'
      '    left join PRODUTO p on (iv.cod_prod = p.cod_prod)'
      '    where (iv.cod_prod = p.cod_prod)'
      '    group by iv.cod_prod, p.nome'
      '    order by 3 desc) x on (p.cod_prod = x.cod_prod)'
      'order by qtde')
    Left = 344
    Top = 106
    object qryRelMaisVendCOD_PROD: TIntegerField
      FieldName = 'COD_PROD'
      Origin = 'PRODUTO.COD_PROD'
      Required = True
    end
    object qryRelMaisVendCOD_GRUPO: TIntegerField
      FieldName = 'COD_GRUPO'
      Origin = 'PRODUTO.COD_GRUPO'
      Required = True
    end
    object qryRelMaisVendNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'PRODUTO.NOME'
      Required = True
      Size = 100
    end
    object qryRelMaisVendDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'PRODUTO.DESCRICAO'
      Required = True
      Size = 100
    end
    object qryRelMaisVendCOMPOSICAO: TIBStringField
      FieldName = 'COMPOSICAO'
      Origin = 'PRODUTO.COMPOSICAO'
      Size = 100
    end
    object qryRelMaisVendCOD_BARRAS: TIBStringField
      FieldName = 'COD_BARRAS'
      Origin = 'PRODUTO.COD_BARRAS'
      Required = True
      Size = 100
    end
    object qryRelMaisVendMED_CONTROLADO: TIBStringField
      FieldName = 'MED_CONTROLADO'
      Origin = 'PRODUTO.MED_CONTROLADO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object qryRelMaisVendCOR_TARJA: TIBStringField
      FieldName = 'COR_TARJA'
      Origin = 'PRODUTO.COR_TARJA'
    end
    object qryRelMaisVendLISTAGEM: TIBStringField
      FieldName = 'LISTAGEM'
      Origin = 'PRODUTO.LISTAGEM'
      FixedChar = True
      Size = 2
    end
    object qryRelMaisVendREGISTRO_MS: TIBStringField
      FieldName = 'REGISTRO_MS'
      Origin = 'PRODUTO.REGISTRO_MS'
    end
    object qryRelMaisVendNCM: TIBStringField
      FieldName = 'NCM'
      Origin = 'PRODUTO.NCM'
      Size = 50
    end
    object qryRelMaisVendDT_CADASTRO: TDateField
      FieldName = 'DT_CADASTRO'
      Origin = 'PRODUTO.DT_CADASTRO'
      Required = True
    end
    object qryRelMaisVendPRECO_CUSTO: TFloatField
      FieldName = 'PRECO_CUSTO'
      Origin = 'PRODUTO.PRECO_CUSTO'
      Required = True
      currency = True
    end
    object qryRelMaisVendPRECO_VENDA: TFloatField
      FieldName = 'PRECO_VENDA'
      Origin = 'PRODUTO.PRECO_VENDA'
      Required = True
      currency = True
    end
    object qryRelMaisVendDESCONTO_MAX: TFloatField
      FieldName = 'DESCONTO_MAX'
      Origin = 'PRODUTO.DESCONTO_MAX'
      Required = True
      currency = True
    end
    object qryRelMaisVendMARCA: TIBStringField
      FieldName = 'MARCA'
      Origin = 'PRODUTO.MARCA'
      Required = True
      Size = 50
    end
    object qryRelMaisVendQTDE: TLargeintField
      FieldName = 'QTDE'
    end
  end
  object qryRelVenda: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select v.*, c.nome as cliente, f.nome as funcionario, cp.descric' +
        'ao as condicao'
      '    from venda v'
      '    join cliente c on (v.cod_cli = c.cod_cli)'
      '    join funcionario f on (v.cod_func = f.cod_func)'
      '    join condicao_pgto cp on (v.cod_condicao = cp.cod_condicao)'
      ''
      '    order by v.cod_venda')
    Left = 346
    Top = 155
    object qryRelVendaCOD_VENDA: TIntegerField
      FieldName = 'COD_VENDA'
      Origin = 'VENDA.COD_VENDA'
      Required = True
    end
    object qryRelVendaCOD_CONDICAO: TIntegerField
      FieldName = 'COD_CONDICAO'
      Origin = 'VENDA.COD_CONDICAO'
      Required = True
    end
    object qryRelVendaCOD_FUNC: TIntegerField
      FieldName = 'COD_FUNC'
      Origin = 'VENDA.COD_FUNC'
      Required = True
    end
    object qryRelVendaDT_VENDA: TDateField
      FieldName = 'DT_VENDA'
      Origin = 'VENDA.DT_VENDA'
      Required = True
    end
    object qryRelVendaVL_VENDA: TFloatField
      FieldName = 'VL_VENDA'
      Origin = 'VENDA.VL_VENDA'
      Required = True
      currency = True
    end
    object qryRelVendaCOD_CLI: TIntegerField
      FieldName = 'COD_CLI'
      Origin = 'VENDA.COD_CLI'
    end
    object qryRelVendaNUM_RECEITA: TIntegerField
      FieldName = 'NUM_RECEITA'
      Origin = 'VENDA.NUM_RECEITA'
    end
    object qryRelVendaCRM_MEDICO: TIntegerField
      FieldName = 'CRM_MEDICO'
      Origin = 'VENDA.CRM_MEDICO'
    end
    object qryRelVendaSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'VENDA.SITUACAO'
      Required = True
    end
    object qryRelVendaFUNCIONARIO: TIBStringField
      FieldName = 'FUNCIONARIO'
      Origin = 'FUNCIONARIO.NOME'
      Required = True
      Size = 100
    end
    object qryRelVendaCLIENTE: TIBStringField
      FieldName = 'CLIENTE'
      Origin = 'CLIENTE.NOME'
      Required = True
      Size = 100
    end
    object qryRelVendaCONDICAO: TIBStringField
      FieldName = 'CONDICAO'
      Origin = 'CONDICAO_PGTO.DESCRICAO'
      Required = True
      Size = 100
    end
  end
  object qryRelCompra: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select c.*, f.*, cp.descricao as condicao'
      '    from compra c'
      '    join fornecedor f on (c.cod_fornec = f.cod_fornec)'
      '    join condicao_pgto cp on (c.cod_condicao = cp.cod_condicao)'
      ''
      '    order by c.cod_compra')
    Left = 432
    Top = 112
    object qryRelCompraCOD_COMPRA: TIntegerField
      FieldName = 'COD_COMPRA'
      Origin = 'COMPRA.COD_COMPRA'
      Required = True
    end
    object qryRelCompraCOD_CONDICAO: TIntegerField
      FieldName = 'COD_CONDICAO'
      Origin = 'COMPRA.COD_CONDICAO'
      Required = True
    end
    object qryRelCompraCOD_FORNEC: TIntegerField
      FieldName = 'COD_FORNEC'
      Origin = 'COMPRA.COD_FORNEC'
      Required = True
    end
    object qryRelCompraDT_COMPRA: TDateField
      FieldName = 'DT_COMPRA'
      Origin = 'COMPRA.DT_COMPRA'
      Required = True
    end
    object qryRelCompraVL_COMPRA: TFloatField
      FieldName = 'VL_COMPRA'
      Origin = 'COMPRA.VL_COMPRA'
      Required = True
      currency = True
    end
    object qryRelCompraSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'COMPRA.SITUACAO'
      Required = True
    end
    object qryRelCompraCOD_FORNEC1: TIntegerField
      FieldName = 'COD_FORNEC1'
      Origin = 'FORNECEDOR.COD_FORNEC'
      Required = True
    end
    object qryRelCompraCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'FORNECEDOR.COD_CID'
      Required = True
    end
    object qryRelCompraNOME_RAZAO: TIBStringField
      FieldName = 'NOME_RAZAO'
      Origin = 'FORNECEDOR.NOME_RAZAO'
      Required = True
      Size = 100
    end
    object qryRelCompraCPF_CNPJ: TIBStringField
      FieldName = 'CPF_CNPJ'
      Origin = 'FORNECEDOR.CPF_CNPJ'
      Required = True
    end
    object qryRelCompraRG_INSCREST: TIBStringField
      FieldName = 'RG_INSCREST'
      Origin = 'FORNECEDOR.RG_INSCREST'
      Required = True
      Size = 50
    end
    object qryRelCompraENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'FORNECEDOR.ENDERECO'
      Required = True
      Size = 100
    end
    object qryRelCompraTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'FORNECEDOR.TELEFONE'
      Required = True
      Size = 15
    end
    object qryRelCompraEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'FORNECEDOR.EMAIL'
      Size = 100
    end
    object qryRelCompraCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'FORNECEDOR.CEP'
      Required = True
    end
    object qryRelCompraCONDICAO: TIBStringField
      FieldName = 'CONDICAO'
      Origin = 'CONDICAO_PGTO.DESCRICAO'
      Required = True
      Size = 100
    end
  end
  object qryRelContasPagar: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select p.*, f.*'
      'from parcela_cp p'
      'join compra c on (p.cod_compra = c.cod_compra)'
      'join fornecedor f on (f.cod_fornec = c.cod_fornec)')
    Left = 432
    Top = 8
    object qryRelContasPagarCOD_PARCELA_CP: TIntegerField
      FieldName = 'COD_PARCELA_CP'
      Origin = 'PARCELA_CP.COD_PARCELA_CP'
      Required = True
    end
    object qryRelContasPagarCOD_COMPRA: TIntegerField
      FieldName = 'COD_COMPRA'
      Origin = 'PARCELA_CP.COD_COMPRA'
      Required = True
    end
    object qryRelContasPagarNR_DOCUMENTO: TIntegerField
      FieldName = 'NR_DOCUMENTO'
      Origin = 'PARCELA_CP.NR_DOCUMENTO'
      Required = True
    end
    object qryRelContasPagarDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'PARCELA_CP.DT_VENCIMENTO'
      Required = True
    end
    object qryRelContasPagarDT_PAGAMENTO: TDateField
      FieldName = 'DT_PAGAMENTO'
      Origin = 'PARCELA_CP.DT_PAGAMENTO'
    end
    object qryRelContasPagarVL_JUROS: TFloatField
      FieldName = 'VL_JUROS'
      Origin = 'PARCELA_CP.VL_JUROS'
      currency = True
    end
    object qryRelContasPagarVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'PARCELA_CP.VL_DESCONTO'
      currency = True
    end
    object qryRelContasPagarVL_PARCELA: TFloatField
      FieldName = 'VL_PARCELA'
      Origin = 'PARCELA_CP.VL_PARCELA'
      Required = True
      currency = True
    end
    object qryRelContasPagarVL_PAGAMENTO: TFloatField
      FieldName = 'VL_PAGAMENTO'
      Origin = 'PARCELA_CP.VL_PAGAMENTO'
      currency = True
    end
    object qryRelContasPagarFORMAPGTO: TIBStringField
      FieldName = 'FORMAPGTO'
      Origin = 'PARCELA_CP.FORMAPGTO'
      Size = 50
    end
    object qryRelContasPagarSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'PARCELA_CP.SITUACAO'
      Required = True
    end
    object qryRelContasPagarCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'FORNECEDOR.COD_CID'
      Required = True
    end
    object qryRelContasPagarNOME_RAZAO: TIBStringField
      FieldName = 'NOME_RAZAO'
      Origin = 'FORNECEDOR.NOME_RAZAO'
      Required = True
      Size = 100
    end
    object qryRelContasPagarCPF_CNPJ: TIBStringField
      FieldName = 'CPF_CNPJ'
      Origin = 'FORNECEDOR.CPF_CNPJ'
      Required = True
    end
    object qryRelContasPagarRG_INSCREST: TIBStringField
      FieldName = 'RG_INSCREST'
      Origin = 'FORNECEDOR.RG_INSCREST'
      Required = True
      Size = 50
    end
    object qryRelContasPagarENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'FORNECEDOR.ENDERECO'
      Required = True
      Size = 100
    end
    object qryRelContasPagarTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'FORNECEDOR.TELEFONE'
      Required = True
      Size = 15
    end
    object qryRelContasPagarEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'FORNECEDOR.EMAIL'
      Size = 100
    end
    object qryRelContasPagarCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'FORNECEDOR.CEP'
      Required = True
    end
    object qryRelContasPagarCOD_FORNEC: TIntegerField
      FieldName = 'COD_FORNEC'
      Origin = 'FORNECEDOR.COD_FORNEC'
      Required = True
    end
  end
  object qryRelContasReceber: TIBQuery
    Database = dBanco
    Transaction = tBanco
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select p.*, c.* from parcela_cr p'
      'join venda v on (v.cod_venda = p.cod_venda)'
      'join cliente c on (v.cod_cli = c.cod_cli)')
    Left = 432
    Top = 56
    object qryRelContasReceberCOD_PARCELA_CR: TIntegerField
      FieldName = 'COD_PARCELA_CR'
      Origin = 'PARCELA_CR.COD_PARCELA_CR'
      Required = True
    end
    object qryRelContasReceberCOD_VENDA: TIntegerField
      FieldName = 'COD_VENDA'
      Origin = 'PARCELA_CR.COD_VENDA'
      Required = True
    end
    object qryRelContasReceberNR_DOCUMENTO: TIntegerField
      FieldName = 'NR_DOCUMENTO'
      Origin = 'PARCELA_CR.NR_DOCUMENTO'
      Required = True
    end
    object qryRelContasReceberDT_VENCIMENTO: TDateField
      FieldName = 'DT_VENCIMENTO'
      Origin = 'PARCELA_CR.DT_VENCIMENTO'
      Required = True
    end
    object qryRelContasReceberDT_RECEBIMENTO: TDateField
      FieldName = 'DT_RECEBIMENTO'
      Origin = 'PARCELA_CR.DT_RECEBIMENTO'
    end
    object qryRelContasReceberVL_JUROS: TFloatField
      FieldName = 'VL_JUROS'
      Origin = 'PARCELA_CR.VL_JUROS'
      currency = True
    end
    object qryRelContasReceberVL_DESCONTO: TFloatField
      FieldName = 'VL_DESCONTO'
      Origin = 'PARCELA_CR.VL_DESCONTO'
      currency = True
    end
    object qryRelContasReceberVL_PARCELA: TFloatField
      FieldName = 'VL_PARCELA'
      Origin = 'PARCELA_CR.VL_PARCELA'
      Required = True
      currency = True
    end
    object qryRelContasReceberVL_RECEBIMENTO: TFloatField
      FieldName = 'VL_RECEBIMENTO'
      Origin = 'PARCELA_CR.VL_RECEBIMENTO'
      currency = True
    end
    object qryRelContasReceberFORMAPGTO: TIBStringField
      FieldName = 'FORMAPGTO'
      Origin = 'PARCELA_CR.FORMAPGTO'
      Size = 50
    end
    object qryRelContasReceberSITUACAO: TIBStringField
      FieldName = 'SITUACAO'
      Origin = 'PARCELA_CR.SITUACAO'
      Required = True
    end
    object qryRelContasReceberCOD_CLI: TIntegerField
      FieldName = 'COD_CLI'
      Origin = 'CLIENTE.COD_CLI'
      Required = True
    end
    object qryRelContasReceberCOD_CID: TIntegerField
      FieldName = 'COD_CID'
      Origin = 'CLIENTE.COD_CID'
      Required = True
    end
    object qryRelContasReceberNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'CLIENTE.NOME'
      Required = True
      Size = 100
    end
    object qryRelContasReceberENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'CLIENTE.ENDERECO'
      Required = True
      Size = 100
    end
    object qryRelContasReceberCEP: TIBStringField
      FieldName = 'CEP'
      Origin = 'CLIENTE.CEP'
      Required = True
    end
    object qryRelContasReceberRG: TIBStringField
      FieldName = 'RG'
      Origin = 'CLIENTE.RG'
      Required = True
    end
    object qryRelContasReceberCPF: TIBStringField
      FieldName = 'CPF'
      Origin = 'CLIENTE.CPF'
      Required = True
    end
    object qryRelContasReceberTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'CLIENTE.TELEFONE'
      Required = True
    end
    object qryRelContasReceberCELULAR: TIBStringField
      FieldName = 'CELULAR'
      Origin = 'CLIENTE.CELULAR'
    end
    object qryRelContasReceberEMAIL: TIBStringField
      FieldName = 'EMAIL'
      Origin = 'CLIENTE.EMAIL'
      Size = 100
    end
  end
end
